

(defvar x 100)

(defmethod fun1 ()
  (progn
    (setf x 5)
    (fun2)))

(defmethod fun2 ()
  (print x))



(defmethod main (x)
  (progn
    (fun1)
    (print x)
    (fun2)))

(main 10)
(print x)